home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 13ex007.jar / code / ch13 / 13ex007 / 13ex007.pl next >
Perl Script  |  1998-04-01  |  582b  |  23 lines
  1. #!/bin/perl  
  2. package Employee; 
  3. sub  new{ 
  4. my  $class = shift; 
  5. $worker={Name=>undef,  
  6. Salary=>undef,  
  7. };  
  8. bless($worker,  $class); 
  9. return  $worker;} 
  10. sub DESTROY{ 
  11. my  $self = shift; 
  12. print "$self->{Name}\n" ; 
  13. delete $self->{Name}; # remove the (object); 
  14. print "Hash Name entry has been destroyed. Bailing out.\n" if ( ! exists 
  15. $self->{Name});  
  16. }  
  17. package main; 
  18. $empref = new Employee; # create the object 
  19. $empref->{Name}=  "Dan Savage" ; 
  20. $empref->{Salary}=10000;  
  21. print "Name is $empref->{Name}.\n" ; 
  22. print "Salary is $empref->{Salary}.\n" ; 
  23.